Option Explicit
'u@Ҳ
Private Sub CommandButton1_Click()
    Me.Cells(65536, 1).End(xlUp).Offset(1).Value = _
    "CommandButton1_Click"
End Sub

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Me.Cells(65536, 1).End(xlUp).Offset(1).Value = _
    "CommandButton1_DblClick"
End Sub

Private Sub CommandButton1_GotFocus()
    Me.Cells(65536, 1).End(xlUp).Offset(1).Value = _
    "CommandButton1_GotFocus"
End Sub

Private Sub CommandButton1_LostFocus()
    Me.Cells(65536, 1).End(xlUp).Offset(1).Value = _
    "CommandButton1_LostFocus"
End Sub

Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _
                                  ByVal Shift As Integer)
    Me.Cells(65536, 1).End(xlUp).Offset(1).Value = _
    "CommandButton1_KeyDown"
End Sub

Private Sub CommandButton1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Me.Cells(65536, 1).End(xlUp).Offset(1).Value = _
    "CommandButton1_KeyPress"
End Sub

Private Sub CommandButton1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, _
                                 ByVal Shift As Integer)
    Me.Cells(65536, 1).End(xlUp).Offset(1).Value = _
    "CommandButton1_KeyUp"
End Sub

Private Sub CommandButton1_MouseDown(ByVal Button As Integer, _
                                     ByVal Shift As Integer, _
                                     ByVal X As Single, _
                                     ByVal Y As Single)
    Me.Cells(65536, 1).End(xlUp).Offset(1).Value = _
    "CommandButton1_MouseDown"
End Sub

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, _
                                     ByVal Shift As Integer, _
                                     ByVal X As Single, _
                                     ByVal Y As Single)
    Me.Cells(65536, 1).End(xlUp).Offset(1).Value = _
    "CommandButton1_MouseMove"
End Sub

Private Sub CommandButton1_MouseUp(ByVal Button As Integer, _
                                   ByVal Shift As Integer, _
                                   ByVal X As Single, _
                                   ByVal Y As Single)
    Me.Cells(65536, 1).End(xlUp).Offset(1).Value = _
    "CommandButton1_MouseUp"
End Sub
